home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / shell / cfn.lha / cfn / Notify.e < prev    next >
Text File  |  1992-09-02  |  668b  |  34 lines
  1. /* Notify */
  2.  
  3. /* Skickar ett meddelande till Shuffle med process och fönster. */
  4.  
  5. MODULE 'exec/ports'
  6. MODULE 'exec/tasks'
  7. MODULE 'exec/types'
  8. MODULE 'exec/nodes'
  9. MODULE 'exec/io'
  10. MODULE 'exec/memory'
  11. MODULE 'intuition/screens'
  12. MODULE 'intuition/intuition'
  13. OBJECT memess
  14.    mess     : mn
  15.    wind     : LONG
  16.    process    : LONG
  17. ENDOBJECT
  18. DEF ms:PTR TO memess
  19.  
  20. PROC main()
  21. DEF w:PTR TO window
  22. DEF t:PTR TO tc
  23. DEF port:PTR TO mp
  24. w:=Long(intuitionbase+52)
  25. t:=FindTask(NIL)
  26. IF (ms:=AllocMem(SIZEOF memess,MEMF_PUBLIC+MEMF_CLEAR))
  27.   ms.wind:=w
  28.   ms.process:=t
  29.   Forbid()
  30.    IF (port:=FindPort('Shuffle')) THEN PutMsg(port,ms) ELSE FreeMem(ms, SIZEOF memess)
  31.   Permit()
  32. ENDIF
  33. ENDPROC
  34.